home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / russell / russell.lha / examples / string_test.r < prev    next >
Text File  |  1989-12-29  |  362b  |  19 lines
  1. let
  2.     c == ChStr$New[]
  3.     ; s == ChStr$New[]
  4.     ; newlinecode == 10
  5.     ; newline == func[]
  6.             { put[ ChStr$In[newlinecode] ] }
  7. in
  8.     put["enter a line:"]
  9.     ; newline[]
  10.     ; s := (c := getchar[FS])
  11.     ; do
  12.     Out[c] <> newlinecode ==> c := getchar[FS]
  13.                   ; s := s ^* c
  14.       od
  15.     ; put["thanks, your string was"]
  16.     ; newline[]
  17.     ; put[ s ]
  18. ni
  19.